10 POKE51,255:POKE52,127:POKE55,255:POKE56,127:CLR
20 POKE53280,11:SYS49288,0,5,13,2:SYS49936:SYS49888:SYS50704
30 FORA=20TO0STEP-1:SYS49936:SYS50416,20,16-A*4,0,A,8,1:NEXT
40 SYS50176
50 FORA=20TO0STEP-1:SYS50216:SYS50416,28,16-A*4,0,A,5,1:NEXT
60 SYS50176
70 FORA=20TO0STEP-1:SYS50216:SYS50416,36,16-A*4,0,A,12,1:NEXT
80 SYS50176
90 FORA=20TO0STEP-1:SYS50216:SYS50416,44,16-A*4,0,A,12,1:NEXT
100 SYS50176
110 FORA=20TO0STEP-1:SYS50216:SYS50416,52,16-A*4,0,A,15,1:NEXT
120 SYS50176
130 FORA=20TO0STEP-1:SYS50216:SYS50416,20,24-A*4,0,A,20,2:NEXT
140 SYS50176
150 FORA=20TO0STEP-1:SYS50216:SYS50416,28,24-A*4,0,A,8,2:NEXT
160 SYS50176
170 FORA=20TO0STEP-1:SYS50216:SYS50416,36,24-A*4,0,A,5,2:NEXT
180 SYS50176
190 FORA=20TO0STEP-1:SYS50216:SYS50416,44,24-A*4,0,A,18,2:NEXT
200 SYS50176
210 FORA=20TO0STEP-1:SYS50216:SYS50416,52,24-A*4,0,A,5,2:NEXT
220 SYS50176
230 FORA=-3TO16:SYS49960,A,A-2,79-A*2,50-A*2,3:NEXT
240 FORA=-3TO15:SYS49960,A,A-2,79-A*2,50-A*2,0:NEXT:GOSUB5000
250 FORA=14TO24:SYS49960,0,A,79,0,0:SYS49960,0,49-A,79,0,0:NEXT
260 SYS49288,0,7,10,2:SYS50736:SYS50720
270 FORA=9TO0STEP-1:SYS49936:SYS50416,35-A*4,24-A*4,A,A,48+A,1:SYS50176
280 FORB=1TO1500:NEXT:NEXT
300 FORA=-95TO80STEP5:SYS49936:SYS49960,A+4,20,16,0,1
301 SYS49960,A+3,21,17,0,2
302 SYS49960,A+2,22,18,0,1
303 SYS49960,A+1,23,19,0,2
304 SYS49960,A+0,24,20,0,1
305 SYS49960,A+1,25,19,0,2
306 SYS49960,A+2,26,18,0,1
307 SYS49960,A+3,27,17,0,2
308 SYS49960,A+4,28,16,0,1
309 SYS49960,A+20,20,3,8,2:SYS49960,A+23,19,65,10,3
310 SYS50416,A+24,21,0,0,2,2
311 SYS50416,A+32,21,0,0,12,2
312 SYS50416,A+40,21,0,0,1,2
313 SYS50416,A+48,21,0,0,19,2
314 SYS50416,A+56,21,0,0,20,2
315 SYS50416,A+64,21,0,0,15,2
316 SYS50416,A+72,21,0,0,6,2
317 SYS50416,A+80,21,0,0,6,2
318 SYS49960,A+89,19,0,10,2
319 SYS49960,A+90,20,0,8,2
320 SYS49960,A+91,21,0,6,2
321 SYS49960,A+92,22,0,4,2:SYS49960,A+93,23,0,2,2:SYS50176:NEXT:POKE198,0
330 SYS49936:FORA=1TO3000:NEXT:SYS50704:SYS49288,0,10,4,3
335 FORA=0TO24:SYS49960,A,A-2,79-A*2,49-A*2,(25-A)/8:NEXT:A=-8:POKE198,0
336 POKE646,PEEK(827)+8
337 PRINT"[147][144]                                        ";
338 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
339 POKE646,PEEK(827)+8:SYS49584,24,0
340 A=((A+8)AND31)-7:A1=(AAND31)-7:A2=((A-8)AND31)-7:A3=((A-16)AND31)-7
345 SYS49960,A,A-2,79-A*2,49-A*2,0
350 SYS49960,A1,A1-2,79-A1*2,49-A1*2,1
360 SYS49960,A2,A2-2,79-A2*2,49-A2*2,2
370 SYS49960,A3,A3-2,79-A3*2,49-A3*2,3
380 GETA$:IFA$<>" "THEN340
390 SYS49888:PRINT"[147]":SYS49936:SYS49288,0,4,10,2
400 FORA=-20TO30:SYS49152,A+20,20,1:SYS49152,A,20,0
405 SYS49152,60-A,30,1:SYS49152,80-A,30,0
410 SYS49152,50,A,1:SYS49152,50,A-10,0
415 SYS49152,30,50-A,1:SYS49152,30,60-A,0:NEXT:SYS49960,30,20,20,10,1
418 FORA=1TO500:NEXT
420 FORA=30TO0STEP-1:SYS49960,A,20,20,10,1
425 FORB=0TO50:NEXT:POKE822,0:SYS50032:NEXT
430 SYS49960,0,20,20,10,1:SYS50176:FORA=21TO79STEP2:FORB=-10TO20STEP5
440 SYS50216:SYS49960,A,B,1,10,2:NEXT:SYS50176:NEXT
450 FORA=0TO18STEP2:FORB=0TO18-A:SYS50216:SYS49960,32,B,16,1,3
460 SYS49960,32,49-B,16,1,3:NEXT:SYS50176:NEXT
470 FORA=13TO32:FORB=13+(AAND1)TO45-ASTEP2:SYS50216:SYS49960,-1,-13,B,B,1
475 SYS49960,81-B,-13,B,B,1:SYS49960,-1,63-B,B,B,1:SYS49960,81-B,63-B,B,B,1
480 NEXT:SYS50176:NEXT
490 FORA=0TO4:SYS49960,1+A,21+A,18-A*2,8-A*2,2:FORB=1TO200:NEXT:NEXT:GOSUB5000
500 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT:A=-1:C=2:SYS49288,0,13,10,4
505 SYS50736:SYS50720
510 FORB=-24TO80
520 A=A+1:IFA=25THENA=0:C=((C+1)AND1)+2
530 SYS49960,A,A,79-A*2,49-A*2,C
540 SYS50416,B-1,14,2,2,18,C:SYS50416,B,14,2,2,18,1:SYS50176:NEXT
550 SYS50216:SYS50704
560 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
570 SYS49288,0,2,3,6
580 POKE646,PEEK(827)+8:POKE198,0
590 PRINT"[147][144]                                        ";
600 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
610 POKE646,PEEK(827)+8:SYS49584,24,0:C=0
620 C=C+1:IFC=4THENC=1
625 W=-5+INT(RND(1)*80):X=-5+INT(RND(1)*50):Y=INT(RND(1)*3):Z=INT(RND(1)*3)
630 SYS50416,W,X,Y,Z,INT(RND(1)*26)+1,C:GETA$:IFA$<>" "THEN620
640 SYS49888:PRINT"[147]"
650 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
660 SYS49288,0,7,10,2
670 FORA=80TO0STEP-2:SYS50416,A+2,8,0,0,23,0:SYS50416,A,8,0,0,23,2:NEXT
680 FORA=80TO8STEP-2:SYS50416,A+2,8,0,0,15,0:SYS50416,A,8,0,0,15,2:NEXT
690 FORA=80TO16STEP-2:SYS50416,A+2,8,0,0,23,0:SYS50416,A,8,0,0,23,2:NEXT
700 FORA=80TO24STEP-2:SYS50416,A+2,8,0,0,33,0:SYS50416,A,8,0,0,33,2:NEXT
710 FORA=50TO16STEP-2:SYS50416,0,A+2,0,0,20,0:SYS50416,0,A,0,0,20,2:NEXT
720 FORA=50TO16STEP-2:SYS50416,8,A+2,0,0,8,0:SYS50416,8,A,0,0,8,2:NEXT
730 FORA=50TO16STEP-2:SYS50416,16,A+2,0,0,9,0:SYS50416,16,A,0,0,9,2:NEXT
740 FORA=50TO16STEP-2:SYS50416,24,A+2,0,0,19,0:SYS50416,24,A,0,0,19,2:NEXT
750 FORA=26TO0STEP-2:SYS50416,A+2,A+26,0,0,9,0:SYS50416,A,A+24,0,0,9,2
760 SYS50416,A+10,A+26,0,0,19,0:SYS50416,A+8,A+24,0,0,19,2:NEXT
770 FORA=80TO0STEP-8:SYS50416,A+8,32,0,0,7,0:SYS50416,A,32,1,0,7,2
780 SYS50416,A,32,1,0,7,0:SYS50416,A,32,0,0,7,2:NEXT
790 FORA=80TO8STEP-8:SYS50416,A+8,32,0,0,18,0:SYS50416,A,32,1,0,18,2
800 SYS50416,A,32,1,0,18,0:SYS50416,A,32,0,0,18,2:NEXT
810 FORA=80TO16STEP-8:SYS50416,A+8,32,0,0,5,0:SYS50416,A,32,1,0,5,2
820 SYS50416,A,32,1,0,5,0:SYS50416,A,32,0,0,5,2:NEXT
830 FORA=80TO24STEP-8:SYS50416,A+8,32,0,0,1,0:SYS50416,A,32,1,0,1,2
840 SYS50416,A,32,1,0,1,0:SYS50416,A,32,0,0,1,2:NEXT
850 FORA=80TO32STEP-8:SYS50416,A+8,32,0,0,20,0:SYS50416,A,32,1,0,20,2
860 SYS50416,A,32,1,0,20,0:SYS50416,A,32,0,0,20,2:NEXT
870 FORA=80TO40STEP-8:SYS50416,A+8,32,0,0,33,0:SYS50416,A,32,1,0,33,2
880 SYS50416,A,32,1,0,33,0:SYS50416,A,32,0,0,33,2:NEXT
900 SYS50256,0,44,79,5,3
910 C=2:FORA=48TO79:C=((C+1)AND1)+2
920 L=INT(RND(1)*36):SYS49960,A,43-L,0,L,C:NEXT
930 POKE646,PEEK(827)+8:POKE198,0
940 PRINT"[147][144]                                        ";
950 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
960 POKE646,PEEK(827)+8:SYS49584,24,0:A=-1
970 B=0:A=A+1:IFA=80THENA=0
980 SYS49152,A,B,1:GETA$:IFA$=" "THEN1000
990 SYS49360,A,B+1:IFPEEK(823)=0THENB=B+1:IFB<>49THENSYS49152,A,B-1,0:GOTO980
995 GOTO970
1000 SYS49888
1010 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
1015 SYS49288,0,13,5,3
1018 SYS49960,0,41,79,0,3:SYS49960,0,42,79,0,1:SYS49960,0,43,79,0,2
1020 SYS49960,0,44,79,0,3:SYS49960,0,45,79,0,1:SYS49960,0,46,79,0,2
1030 SYS49960,0,47,79,0,3:SYS49960,0,48,79,0,1:SYS49960,0,49,79,0,2
1040 B=1:FORC=0TO79:A=C+1:SYS49960,C,10+SIN(A/8)*8,0,31-SIN(A/8)*8,B
1050 B=B+1:IFB=4THENB=1
1060 NEXT
1070 B=2:FORC=0TO79:A=C+20:SYS49960,C,20+SIN(A/12)*8,0,21-SIN(A/12)*8,B
1075 SYS49152,C,20+SIN(A/12)*8,0
1080 B=B+1:IFB=4THENB=1
1090 NEXT
1100 B=3:FORC=0TO79:A=C+40:SYS49960,C,30+SIN(A/10)*7,0,11-SIN(A/10)*7,B
1115 SYS49152,C,30+SIN(A/10)*7,0
1120 B=B+1:IFB=4THENB=1
1130 NEXT
1140 GOSUB5000
1150 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT:SYS49288,0,7,2,5
1160 POKE646,PEEK(827)+8:POKE198,0
1170 PRINT"[147][144]                                        ";
1180 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
1190 POKE646,PEEK(827)+8:SYS49584,24,0:A=0
1200 A=A+1:SYS49960,40-A,A,1+A*2,49-A*2,(AAND1)+2:GETA$:IFA$=" "THEN1230
1205 IFA<>24THEN1200
1210 A=A-1:SYS49960,40-A,A,1+A*2,49-A*2,((A+1)AND1)+1:GETA$:IFA$=" "THEN1230
1215 IFA<>0THEN1210
1220 GOTO1200
1230 SYS49888:PRINT"[147]"
1235 FORA=1TO400:X=16+INT(RND(1)*50):Y=INT(RND(1)*49):Z=INT(RND(1)*3)+1
1240 SYS50256,X,Y,Z,Z,0:NEXT
1250 FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
1260 SYS49288,0,2,10,4:POKE646,PEEK(827)+8:POKE198,0
1270 PRINT"[147][144]                                        ";
1280 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
1290 POKE646,PEEK(827)+8:SYS49584,24,0:C=0
1300 X=-5+INT(RND(1)*80):Y=-5+INT(RND(1)*50):C=C+1:IFC=4THENC=1
1310 SYS49960,X,Y,2+INT(RND(1)*8),2+INT(RND(1)*8),C:GETA$:IFA$<>" "THEN1300
1320 SYS49888:PRINT"[147]":FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,0:NEXT
1330 DIMZ(20):FORA=0TO20:Z(A)=INT(RND(1)*40)*2:NEXT:SYS50736:SYS50720
1340 SYS49288,0,1,10,2:POKE646,PEEK(827)+8:POKE198,0
1350 PRINT"[147][144]                                        ";
1360 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
1370 POKE646,PEEK(827)+8:SYS49584,24,0:V=50:S=-1
1380 SYS49936
1385 FORA=0TO10:Z(A)=Z(A)+2:IFZ(A)=80THENZ(A)=0
1388 SYS49152,Z(A),2+A*4,1:NEXT
1390 FORA=0TO9:B=A+11:Z(B)=Z(B)+1:IFZ(B)=80THENZ(B)=0
1395 SYS49152,Z(B),4+A*4,1:NEXT
1400 SYS49152,30,V+2,2:SYS49960,31,V+1,0,2,2:SYS49960,32,V,0,4,2
1410 SYS50256,33,V,15,4,3:SYS49960,33,V+3,5,0,2
1420 FORA=1TO3:SYS49960,53,V+A,8,0,1+INT(RND(1)*2):NEXT
1430 FORA=1TO3:SYS49960,62,V+A,8,0,1+INT(RND(1)*3):NEXT
1440 FORA=1TO3:SYS49960,71,V+A,8,0,2+INT(RND(1)*2):NEXT
1450 SYS50256,49,V+1,3,2,1
1500 SYS50176:V=V+S:IFV=15ANDS=-1THENS=-S
1510 IFV=30ANDS=1THENS=-S
1520 GETA$:IFA$<>" "THEN1380
1525 SYS50216:SYS50704
1530 SYS49888:PRINT"[147]":FORA=0TO24:SYS49960,A,A,79-A*2,49-A*2,1
1540 SYS49960,A,A,79-A*2,49-A*2,0:NEXT
4995 PRINT"[158][147]":SYS49824:POKE198,0:END
5000 POKE646,PEEK(827)+8
5005 PRINT"[147][144]                                        ";
5010 PRINT" PRESS SPACEBAR TO CONTINUE [146]"
5012 POKE646,PEEK(827)+8
5015 SYS49584,24,0:POKE198,0
5020 GETA$:IFA$<>" "THEN5020
5030 SYS49888:PRINT"[147]":POKE198,0:RETURN